home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Leser 15 / Amiga Plus Leser CD 15.iso / Tools / Development / AmigaTalk_X / intuition / Icon.st < prev    next >
Encoding:
Text File  |  2002-03-13  |  5.3 KB  |  181 lines
  1. "------------------------------------------------------------------"
  2. " Icon Class implements control of Amiga Workbench Icons           "
  3. " Chances are that Glyph is the wrong parent class for this class. "
  4. "------------------------------------------------------------------"
  5.  
  6. Class Icon :Glyph ! private iconName !
  7. [
  8.    editToolTypes ! temp !
  9.       temp <- <primitive 219 2 iconName>.
  10.       
  11.       (temp ~= true)
  12.          ifTrue: ['ToolTypesEditor NOT found!' print]
  13. |      
  14.    displayIconInfo ! temp !
  15.       temp <- <primitive 219 3 private iconName>.
  16.       
  17.       (temp ~= nil)
  18.         ifTrue: ['Method displayIconInfo returned', temp print]
  19. |
  20.    displayIconImages
  21.       <primitive 219 4 private iconName>
  22. |
  23.    setIconPosition: newPoint ! nx ny chk !
  24.       nx  <- newPoint x.
  25.       ny  <- newPoint y. 
  26.       chk <- <primitive 219 5 private iconName nx ny>.
  27.  
  28.       (chk ~= nil)
  29.          ifTrue: ['Method setIconPosition returned ', chk print]
  30. |
  31.    moveIcon: deltaPoint ! dx dy chk !
  32.       dx  <- deltaPoint x.
  33.       dy  <- deltaPoint y. 
  34.       chk <- <primitive 219 6 private iconName dx dy>.
  35.  
  36.       (chk ~= nil)
  37.          ifTrue: ['Method moveIcon returned ', chk print]
  38. |
  39.    editIcon: externalEditorName
  40.       (<primitive 219 7 iconName externalEditorName> ~= true)
  41.          ifTrue: ['Method editIcon: ',externalEditorName, 'did NOT run!' print]
  42. |
  43.    addToolType: toolString
  44.       (<primitive 219 8 private iconName toolString> == false)
  45.         ifTrue: ['ToolType ', toolString, 'NOT added!' print]
  46. |
  47.    deleteToolType: toolString
  48.       (<primitive 219 9 private iconName toolString> == false)
  49.         ifTrue: ['ToolType ', toolString, 'NOT deleted!' print]
  50. |
  51.    getIconWidth
  52.       ^ <primitive 219 10 private>
  53. |
  54.    getIconHeight
  55.       ^ <primitive 219 11 private>
  56. |
  57.    getIconFlags
  58.       ^ <primitive 219 12 private>
  59. |
  60.    getIconImageObject
  61.       ^ <primitive 219 13 private>
  62. |
  63.    getIconAlternateImageObject
  64.       ^ <primitive 219 14 private>
  65. |
  66.    getIconType
  67.       "  Valid types are:
  68.  
  69.          WBDISK     = 1
  70.          WBDRAWER   = 2
  71.          WBTOOL     = 3
  72.          WBPROJECT  = 4
  73.          WBGARBAGE  = 5
  74.          WBDEVICE   = 6
  75.          WBKICK     = 7
  76.          WBAPPICON  = 8
  77.       "
  78.       ^ <primitive 219 15 private>
  79. |
  80.    getDefaultTool
  81.       ^ <primitive 219 16 private>
  82. |
  83.    getStackSize
  84.       ^ <primitive 219 17 private>
  85. |
  86.    getWindowWidth
  87.       ^ <primitive 219 18 private>
  88. |
  89.    getWindowHeight
  90.       ^ <primitive 219 19 private>
  91. |
  92.    getWindowTopEdge
  93.       ^ <primitive 219 20 private>
  94. |
  95.    getWindowLeftEdge
  96.       ^ <primitive 219 21 private>
  97. |
  98.    setIconWidth: newWidth
  99.       (<primitive 219 22 private iconName newWidth> ~= true)
  100.          ifTrue: ['Method setIconWidth: ', newWidth, ' failed!' print]
  101. |
  102.    setIconHeight: newHeight
  103.       (<primitive 219 23 private iconName newHeight> ~= true)
  104.          ifTrue: ['Method setIconHeight: ', newHeight, ' failed!' print]
  105. |
  106.    setIconFlags: newFlags
  107.       (<primitive 219 24 private iconName newFlags> ~= true)
  108.          ifTrue: ['Method setIconFlags: ', newFlags, ' failed!' print]
  109. |
  110.    setIconImage: imageObject
  111.       (<primitive 219 25 private iconName imageObject> ~= true)
  112.          ifTrue: ['Method setIconImage: failed!' print]
  113. |
  114.    setIconAlternateImage: imageObject
  115.       (<primitive 219 26 private iconName imageObject> ~= true)
  116.          ifTrue: ['Method setIconAlternateImage: failed!' print]
  117. |
  118.    setIconType: newType
  119.       "  Valid types are:
  120.  
  121.          WBDISK     = 1
  122.          WBDRAWER   = 2
  123.          WBTOOL     = 3
  124.          WBPROJECT  = 4
  125.          WBGARBAGE  = 5
  126.          WBDEVICE   = 6
  127.          WBKICK     = 7
  128.          WBAPPICON  = 8
  129.       "
  130.       (<primitive 219 27 private iconName newType> ~= true)
  131.          ifTrue: ['Method setIconType: ', newType, ' failed!' print]
  132. |
  133.    setDefaultTool: newDefaultTool
  134.       (<primitive 219 28 private iconName newDefaultTool> ~= true)
  135.          ifTrue: ['Method setDefaultTool: ', newDefaultTool, ' failed!' print]
  136. |
  137.    setStackSize: newStackSize
  138.       (<primitive 219 29 private iconName newStackSize> ~= true)
  139.          ifTrue: ['Method setStackSize: ', newStackSize, ' failed!' print]
  140. |
  141.    setWindowWidth: newWidth
  142.       (<primitive 219 30 private iconName newWidth> ~= true)
  143.          ifTrue: ['Method setWindowWidth: ', newWidth, ' failed!' print]
  144. |
  145.    setWindowHeight: newHeight
  146.       (<primitive 219 31 private iconName newHeight> ~= true)
  147.          ifTrue: ['Method setWindowHeight: ', newHeight, ' failed!' print]
  148. |
  149.    setWindowTopEdge: newTopEdge
  150.       (<primitive 219 32 private iconName newTopEdge> ~= true)
  151.          ifTrue: ['Method setWindowTopEdge: ', newTopEdge, ' failed!' print]
  152. |
  153.    setWindowLeftEdge: newLeftEdge
  154.       (<primitive 219 33 private iconName newLeftEdge> ~= true)
  155.          ifTrue: ['Method setWindowLeftEdge: ', newLeftEdge, ' failed!' print]
  156. |
  157.    readInAsciiImage: fileName
  158.       (<primitive 219 34 private iconName fileName> ~= true)
  159.          ifTrue: ['Method readInAsciiImage: ', fileName, ' failed!' print]
  160. |
  161.    writeAsciiImage: fileName
  162.       (<primitive 219 35 private fileName> ~= true)
  163.          ifTrue: ['Method writeAsciiImage: ', fileName, ' failed!' print]
  164. |
  165.    closeIcon ! chk !
  166.       chk <- <primitive 219 0 private iconName>.
  167.  
  168.       (chk ~= nil)
  169.         ifTrue: ['Icon Object was NOT written out!' print]
  170. |
  171.    openIcon: iconFileName
  172.       iconName <- iconFileName.
  173.  
  174.       private  <- <primitive 219 1 iconFileName>.
  175.  
  176.       ^ self
  177. |
  178.    new: iconFileName
  179.       ^ (self openIcon: iconFileName) 
  180. ]
  181.